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-- BcdBind.mesa; edited by Johnsson on August 30, 1978 10:15 PM 

DIRECTORY 

BcdControlDefs: FROM "bcdcontroldef s M , 
BcdDefs: FROM "bcddefs", 
BcdBindDefs: FROM "bcdbinddef s", 
BcdErrorDefs: FROM "bcderrordef s" , 
BcdHeapDefs: FROM "bcdheapdef s", 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTreeDefs: FROM "bcdtreedef s", 
BcdUtilDefs: FROM "bcdutildef s\ 
InlineDefs: FROM "in! inedef s" t 
SegmentDefs: FROM "segmentdefs" , 
StringDefs: FROM "stringdef s", 
TableDefs: FROM "tabledefs"; 

DEFINITIONS FROM BcdDefs, BcdTabDefs, BcdTreeDefs; 

BcdBind: PROGRAM [data: BcdControlDefs. BinderData] 

IMPORTS BcdBindDefs, BcdErrorDefs, BcdHeapDefs, BcdTabDefs, BcdTreeDefs, BcdUtilDefs, TableDefs 

EXPORTS BcdControlDefs ■ 

BEGIN 

BindError: PUBLIC SIGNAL - CODE; 

tb, stb, ctb, cxb, mtb, etb, itb, ftb: TableDefs. TableBase; 

ssb: BcdDefs .NameString; 

Notifier: TableDefs .TableNotif ier - 
BEGIN 

tb <- base[treetype]; 
stb <- base[sttype]; 
ctb «- base[cttype]; 
cxb *- base[cxtype]; 
mtb *- base[mttype]; 
etb <- base[exptype]; 
itb <- base[imptype]; 
ftb <- base[fttype]; 
ssb 4- LOOPHOLE[base[sstype]]; 
RETURN 
END; 

error: PROCEDURE - BEGIN SIGNAL BindError END; 

BindRoot: PUBLIC PROCEDURE » 
BEGIN 

TableDefs.AddNotify[Notifier]; 

relocationHead ♦- BcdBindDefs .GetRelocationHead[]; 
SetupGFMap[]; 
rel +■ NIL; 
AssignImports[ 

I BcdErrorDefs. GetSti -> 
IF rel # NIL THEN 

RESUME[StiForContext[ 

IF rel. type ■ inner THEN rel.parentcx ELSE rel .context]]]; 
BindModules[]; 
ReleaseGFMap[]; 

TableDefs.DropNotify[Notifier]; 
RETURN 
END; 

LinkType: TYPE = RECORD [ 
SELECT tag:* FROM 

gfi => [gfi: GFTIndex], 
import *> [impi: IMPIndex], 
ENDCASE]; 

GFMapItem: TYPE « RECORD [ / 

linkitem: LinkType, 
expi: EXPIndex, 
offset: [0..4)j; 

gfMap: DESCRIPTOR FOR ARRAY OF GFMapItem; 
relMap: DESCRIPTOR FOR ARRAY OF CARDINAL; , 



BcdBind.mesa 2-Sep-78 12:25:15 Page 



SetupGFMap: PROCEDURE ■ 
BEGIN 

i: CARDINAL; 

rel: POINTER TO BcdRelocations; 
iti: IMPIndex; 

nDummies: CARDINAL «- BcdUtilDef s.GetDummyGf i[0]-l; 

nlmports: CARDINAL ■ TableDef s.TableBounds[imptype].size/SIZE[IMPRecord]; 
p: POINTER; 

IF nDummies * THEN p *- NIL 
ELSE 
BEGIN 

nDummies <- nDummies + 1; 

p «- BcdHeapDefs.GetSpace[nDummies*SIZE[GFMapItem]]; 
END; 
gfMap *- DESCRIPTOR[p, nDummies]; 

FOR i IN [0.. nDummies) DO gfMap[i] «" [[gf i[0]],EXPNull ,0] ENDLOOP; 
p ♦■ IF nlmports ■ THEN NIL ELSE BcdHeapDef s .GetSpace[nImports]; 
relMap <- DESCRIPTOR[ p, nlmports]; 
FOR rel <- relocationHead, rel. link UNTIL rel ■ NIL DO 

FOR iti <- FIRST[IMPIndex]+rel. import, iti+SIZE[IMPRecord] 
UNTIL iti 3 rel . importLimit DO 
OPEN imp: itb+iti; 
re!Map[LOOPHOLE[iti,CARDINAL]/SIZE[IMPRecord]] «- 

imp.gf i+ rel . dummy gf i- rel . original f irstdummy; 
ENDLOOP; 
ENDLOOP; 
RETURN 
END; 

RelocatedGfi: PROCEDURE [iti: IMPIndex] RETURNS [CARDINAL] * 
BEGIN 

IF iti - IMPNull THEN RETURN[0]; 

RETURN[relMap[LOOPHOLE[iti,CARDINAL]/SIZE[IMPRecord]]] 
END; 

ReleaseGFMap: PROCEDURE - 
BEGIN 

IF LENGTH[gfMap]#0 THEN BcdHeapDef s. FreeSpace[BASE[gfMap]]; 
IF LENGTH[relMap]#0 THEN BcdHeapDef s . FreeSpace[BASE[relMap]]; 
END; 

NameToHti: PROCEDURE [name: NameRecord] RETURNS [hti: HTIndex] - 
BEGIN OPEN BcdTabDefs; 
found: BOOLEAN; 
ss: StringDefs.SubStringDescriptor <- 

[base: ©ssb. string, offset: name, length: ssb.size[name]]; 
[found, hti] <- FindString[@ss]; 
IF -found THEN error[]; 
RETURN 
END; 

ExpiForSti: PROCEDURE [sti: STIndex] RETURNS [EXPIndex] - 
BEGIN OPEN BcdTabDefs; 
IF sti - STNull THEN RETURN[EXPNull ] ; 
WITH s:stb+sti SELECT FROM 
external a > 

WITH m:s.map SELECT FROM 

interface »> RETURN[m.expi]; 
ENDCASE; 
ENDCASE; 
RETURN[EXPNull] 
END; 

CopyVariantPartOfSTRecord: PROCEDURE [to, from: STIndex] - 
BEGIN -- implements (stb+to) .body «- (stb+f rom) .body; 
-- assignment to dummy assures that this procedure will be noticed 
-- when STRecords change 
dummy: STRecord «- [ 

filename:, assigned:, hti:, imported:, exported:, 

link:, impi:, impgfi:, body:]; 
s: POINTER TO STRecord ■ stb+to; 
dummy «- st; 
st 4- (stb+from)t; 
s. filename <- dummy .filename; 
s. assigned «- dummy. assigned; 
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s.hti <- dummy. hti; 

s. imported <- dummy, imported; 

s. exported <- dummy. exported; 

s. 1 ink <- dummy. 1 ink; 

s.impi <- dummy, imp i; 

s.impgfi <- dummy . impgfi; 

END; 

Assignlmports: PROCEDURE ■ 
BEGIN 

savelndex: CARDINAL - data. textlndex; 
saveName: NameRecord - data.currentname; 
iti, import: IMPIndex; 
export: EXPIndex; 
defgfi: CARDINAL; 
sti, parentsti: STIndex; 

FOR rel ♦■ relocationHead, rel. link UNTIL rel ■ NIL DO 
data. textlndex <- rel .textlndex; 

data.currentname *- BcdUtilDef s.NameForSti[StiForContext[rel .context]]; 
IF rel .parameters # empty THEN AssignByParameters[rel] 
ELSE FOR iti «- FIRST[IMPIndex]+rel . import , iti+SIZE[IMPRecord] 
UNTIL iti ■ rel .importLimit DO 
BEGIN 

OPEN imp: itb+iti; 
IF (sti <- Lookup[NameToHti[imp.name], rel .context]) ■ STNull THEN 

GOTO loop; 
defgfi +• (stb+sti) . impgfi ; 
IF (stb+sti). impi # IMPNull THEN 

BEGIN OPEN s:stb+sti, imp: itb+(stb+sti) . impi ; 
SELECT rel. type FROM 
outer ■> 
BEGIN 

s.impgfi «- imp.gfi «- BcdUtilDef s.GetGf i[imp.ngf i]; 
GOTO loop; 
END; 
inner ■> 
BEGIN 

parentsti ♦• LookupImport[iti ,rel .parentcx]; 
import +■ (stb+parentsti) .impi ; 
defgfi <- (stb+parentsti) . impgfi ; 
export ♦- ExpiForSti[parentsti]; 
sti <- parentsti; 
END; 
ENDCASE -> 

BEGIN import ♦■ s.impi; export <- ExpiForSti[sti] END; 
END 
ELSE BEGIN import «- IMPNull; export + ExpiForSti[sti] END; 
WITH s: stb+sti SELECT FROM 
external *^ 

WITH m:s.map SELECT FROM 

module »> AssignModule[defgf i , m.mti, iti]; 
interface => 

Assignlnterface[defgf i , import, export, iti]; 
unknown ■> AssignImport[def gf i , import, iti]; 
ENDCASE => error[]; 
unknown => AssignImport[def gf i , import, iti]; 
ENDCASE => error[]; 
EXITS loop»> NULL; 
END; 

ENDLOOP; 
ENDLOOP; 
data, textlndex ♦■ savelndex; 
data.currentname «- saveName; 
RETURN 
END; 

Lookuplmport: PROCEDURE [iti: IMPIndex, cxi: CXIndex] 
RETURNS [sti: STIndex] ■ 
BEGIN OPEN s: stb+sti; 
sti <- STNull; 

IF cxi - CXNull THEN RETURN; 
sti «- Lookup[NameToHti[(itb+iti) .name], cxi]; 
RETURN 
END; 
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AssignByParameters: PROCEDURE[rel : POINTER TO BcdBindDef s.BcdRelocations] ■ 
BEGIN 

iti: IMPIndex; 

msg: STRING «- "has too many parameters ,f L; 
TooManyParameters: SIGNAL ■ CODE; 
AssignOne: BcdTreeDef s .TreeScan ■ 
BEGIN 

import: IMPIndex; 
export: EXPIndex; 
sti: STIndex; 
defgfi: CARDINAL; 

IF iti H rel . importLimit THEN SIGNAL TooManyParameters; 
WITH t SELECT FROM 

symbol ■> sti «- index; 
ENDCASE «> error[]; 
defgfi <- (stb+sti) . impgf i ; 
import <- (stb+sti) . impi; 
export «- ExpiForSti[sti]; 
WITH s: stb+sti SELECT FROM 
external n ^ 

WITH m:s.map SELECT FROM 

module => AssignModule[def gf i , m.mti, iti]; 
interface ■> 

Assignlnterface[defgf i , import, export, iti]; 
ENDCASE «> AssignImport[defgf i, import, iti]; 
ENDCASE => BcdErrorDefs.ErrorSti[error,"is undeclared"L,sti]; 
iti «- iti+SIZE[BcdDefs.IMPRecord]; 
END; 

iti ♦- FIRST[IMPIndex] + rel. import; 

BEGIN 

BcdTreeDef s.s can 1 ist[rel .parameters , AssignOne 

I TooManyParameters => GOTO wrongnumber]; 
IF iti # rel. importLimit THEN 

BEGIN msg <- "has too few parameters"L; GOTO wrongnumber END; 
EXITS wrongnumber B > 

BcdErrorDef s.ErrorHti [error, msg, HtiForRe location [rel]] ; 
END; 
RETURN; 
END; 

MakeLink: PROCEDURE [defgfi: CARDINAL, import: IMPIndex, offset: CARDINAL] 
RETURNS [LinkType] - 
BEGIN 

IF defgfi # THEN RETURN[[gf i[def gf i+off set]]]; 
IF import - IMPNull THEN RETURN[[gf i[0]]]; 
RETURN[[import[ import]]] 
END; 

AssignModule: PROCEDURE [defgfi: GFTIndex, mti: MTIndex, iti: IMPIndex] * 
BEGIN OPEN imp: itb+iti; 
gf i : CARDINAL = RelocatedGf i[iti] ; 
IF imp. port # module OR imp. file # (mtb+mti) .f ile THEN 

BcdErrorDefs.Error2Files[error, "cannot be imported as"L, imp. file, (mtb+mti). file]; 
gfMap[gfi] <- [ 

linkitem: [gf i[IF defgfi # THEN defgfi ELSE (mtb+mti ) .gfi]], 

expi: EXPNull, offset: 0]; 
END; 

Assignlnterface: PROCEDURE [defgfi: GFTIndex, import: IMPIndex, expi: EXPIndex, iti: IMPIndex] 
BEGIN OPEN exp: etb+expi, imp: itb+iti; 
i: [0..4); 

gfi: CARDINAL - RelocatedGf i[iti] ; 
IF imp. port # exp. port OR imp. file # exp. file THEN 

BcdErrorDefs.Error2Files[error , "cannot be imported as"L, imp. file, (etb+expi) .file]; 
IF exp. port s module THEN 
gfMap[gfi] «- [ 

linkitem: [gfi[( etb+expi) . 1 inks[0] .gfi]], 
expi: EXPNull, offset: 0] 
ELSE FOR i IN [0. . imp.ngf i) DO 
gfMap[gfi + i] «- [ 

linkitem: MakeLink[defgf i , import, i], 
expi: expi, offset: i]; 
ENDL00P; 
END; 
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Assignlmport: PROCEDURE [defgfi: GFTIndex, import: IMPIndex, 1t1: IMPIndex] ■ 
BEGIN OPEN imp: itb+iti; 
i: [0..4); 

gfi: CARDINAL - RelocatedGf i[iti]; 
FOR i IN [0. .imp.ngf i) DO 
gfMap[gfi + i] ♦- [ 

linkitem: MakeLink[def gf i , import, i], 
expi: EXPNull, offset: 1]; 
ENDLOOP; 
END; 

Lookup: PROCEDURE [hti : HTIndex, cxi : CXIndex] RETURNS [sti: STIndex] ■ 
BEGIN 
FOR sti «- (cxb+cxi).link, (stb+sti) . 1 ink UNTIL sti ■ STNull DO 

IF (stb+sti). hti ■ hti THEN RETURN; 

ENDLOOP; 
BcdErrorDefs.ErrorHti[error , "is undeclared"L, hti 

! BcdErrorDefs.GetSti ■> RESUME[StiForContext[cxi]]]; 
RETURN[STNull] 
END; 

StiForContext: PROCEDURE [cxi: CXIndex] RETURNS [sti: STIndex] « 
BEGIN 

stLimit: STIndex ■ LOOPHOLE[TableDef s.TableBounds[sttype].size]; 
FOR sti <- FIRST[STIndex], sti+SIZE[STRecord] UNTIL sti - stLimit DO 
WITH s:stb+sti SELECT FROM 

local => IF s. context - cxi THEN RETURN; 
ENDCASE; 
ENDLOOP; 
RETURN[STNull] 
END; 

HtiForRelocation: PROCEDURE [rel: POINTER TO BcdRelocations] RETURNS [HTIndex] - 
BEGIN 

sti: STIndex; 
mti: f^TIndex; 
cti: CTIndex; 
IF rel. type § file THEN 

BEGIN 

sti *- StiForContext[rel .context]; 

RETURN[(stb+sti).hti]; 

END; 
mti <r FIRST[MTIndex] + rel. module; 
cti *- FIRST[CTIndex] + rel.config; 

RETURN[NameToHti[IF (mtb+mti) .conf ig ■ cti THEN (ctb+cti) .name ELSE (mtb+mti) .name]]; 
END; 

BcdRelocations: TYPE ■ BcdBindDefs. BcdRelocations; 
relocationHead: POINTER TO BcdRelocations; 
rel: POINTER TO BcdRelocations; 

BindModules: PROCEDURE - 
BEGIN 

savelndex: CARDINAL ■ data. textlndex; 
saveName: NameRecord ■ data.currentname; 
mti: MTIndex; 

mtLimit: MTIndex «= LOOPHOLE[TableDef s .TableBounds[mttype].size] ; 
i: CARDINAL; 

FOR mti «- FIRST[MTIndex], mti+SIZE[MTRecord]+(mtb+mti) .frame. length 
UNTIL mti ■ mtLimit DO 
SetRelocationForModule[mti]; 
FOR i IN [0. .(mtb+mti). frame. length) DO 

(mtb+mti) .frame. frag[i] «- RelocateLink[(mtb+mti) .frame. frag[i] 

1 BcdErrorDefs.GetModule -> RESUME[mti]]; 
ENDLOOP; 
ENDLOOP; 
data. textlndex «- savelndex; 
data.currentname *- saveName; 
RETURN 
END; 

SetRelocationForModule: PROCEDURE [mti: MTIndex] ■ 
BEGIN 

gfi: GFTIndex » (mtb+mti) .gfi; 
BEGIN 
IF rel » NIL THEN 
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BEGIN 

IF gfi IN [rel.firstgfi..rel.lastgfi] THEN RETURN; 

FOR rel «- rel.link, rel.link UNTIL rel ■ NIL DO 

IF gfi IN [rel.firstgfi..rel.lastgfi] THEN GOTO found; 
ENDLOOP; 

END; 
FOR rel «- relocationHead, rel.link UNTIL rel » NIL DO 

IF gfi IN [rel.firstgfi..rel.lastgfi] THEN GOTO found; 

ENDLOOP; 
EXITS found -> 

BEGIN 

data, textlndex <- rel .textlndex; 

data.currentname <- BcdUtilDefs.NameForSti[StiForContext[rel .context]]; 

RETURN 

END; 
END; 

error[]; 
RETURN 
END; 

RelocateLink: PROCEDURE[cl : ControlLink] RETURNS [ControlLink] - 
BEGIN 

newel: ControlLink; 
gfi: CARDINAL; 
expi: EXPIndex; 
name: NameRecord; 
offset: CARDINAL «- 0; 
map: POINTER TO GFMapItem; 
IF cl.gfi « THEN RETURN[cl]; 
IF cl.gfi < rel .originalf irstdummy THEN 

BEGIN cl.gfi ♦- cl.gfi + rel .f irstgf i-1; RETURN[cl] END; 
gfi «- cl . gfi-rel .originalf irstdummy+rel .dummygfi ; 
DO 

map <- @gfMap[gfi]; 
IF (expinnap.expi) # EXPNull THEN 
BEGIN 

newel «- (etb+expi) .1 inks[cl ,ep+map.offset*EPLimit]; 
IF newel § NullLink THEN RETURN[newcl]; 
END; 
WITH m:map.linkitem SELECT FROM 
gfi -> 

IF (gfi<-m.gfi) # THEN EXIT 
ELSE GOTO unbindable; 
import ■> 

gfi «- RelocatedGf i[m. impi]+map. offset; 
ENDCASE; 
REPEAT 

unbindable *> 
BEGIN 

[name, off set] <- ImportName[cl .gf i]; 
BcdErrorDef s. Error Interface [ 

warning, "is unbindable"L,name,cl .ep+off set]; 
RETURN[IF cl.tag ■ frame THEN NullLink ELSE UnboundLink]; 
END; 
ENDLOOP; 
cl.gfi *• gfi; 
RETURN[cl] 
END; 

ImportName: PROCEDURE [gfi: GFTIndex] RETURNS [NameRecord, CARDINAL] - 
BEGIN 

iti: IMPIndex; 
FOR iti «- FIRST[IMPIndex]+rel. import, iti+SIZE[IMPRecord] UNTIL iti=rel . importLimit DO 

OPEN imp: itb+iti; 

IF gfi IN [imp. gfi . .imp.gf i+imp.ngfi) THEN 
RETURN[ imp. name, (gf i- imp.gf i)*EPLimit]; 

ENDLOOP; 
RETURN[NullName,0] 
END; 

END.., 
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-- BcdBindDefs.Mesa Edited by Johnsson on April 12, 1978 4:29 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs", 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTreeDefs: FROM "bcdtreedef s" ; 

DEFINITIONS FROM BcdDefs; 

BcdBindDefs: DEFINITIONS - 
BEGIN 

RelocationType: TYPE ■ {outer, inner, file}; 

BcdRelocations: TYPE ■ RECORD [ 
link: POINTER TO BcdRelocations, 
type: RelocationType, 
firstgfi, originalf irstdummy : GFTIndex, 
dummygfi: CARDINAL, 
lastgfi: GFTIndex, 
import, module, config: CARDINAL, 
importLimit: IMPIndex, 
context, parentcx: BcdTabDefs. CXIndex, 
textlndex: CARDINAL, 
parameters: BcdTreeDef s.TreeLirik]; 

GetRelocationHead: PROCEDURE RETURNS [POINTER TO BcdRelocations]; 
END. 



